*&---------------------------------------------------------------------*
*& Report  ZDEMO_NORMAL_ALV
*&
*&---------------------------------------------------------------------*
REPORT  ZDEMO_FM_HIERARCHIAL_ALV.
TYPE-POOLS SLIS.
DATA : IT_EKKO TYPE STANDARD TABLE OF EKKO,
       IT_EKPO TYPE STANDARD TABLE OF EKPO,
       IS_KEYINFO TYPE SLIS_KEYINFO_ALV.

SELECT * INTO TABLE IT_EKKO FROM EKKO UP TO 15 ROWS WHERE LIFNR <> SPACE.

IF IT_EKKO IS NOT INITIAL.
   SELECT * INTO TABLE IT_EKPO FROM EKPO FOR ALL ENTRIES IN IT_EKKO
                                         WHERE EBELN = IT_EKKO-EBELN.
ENDIF.

*Fill Common Field Info
 IS_KEYINFO-HEADER01 = 'EBELN'.
 IS_KEYINFO-ITEM01   = 'EBELN'.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
  EXPORTING
*   I_INTERFACE_CHECK              = ' '
*   I_CALLBACK_PROGRAM             =
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   IS_LAYOUT                      =
*   IT_FIELDCAT                    =
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
*   IT_SORT                        =
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   IS_VARIANT                     =
*   IT_EVENTS                      =
*   IT_EVENT_EXIT                  =
    i_tabname_header               = 'IT_EKKO'
    i_tabname_item                 = 'IT_EKPO'
   I_STRUCTURE_NAME_HEADER        = 'EKKO'
   I_STRUCTURE_NAME_ITEM          = 'EKPO'
    is_keyinfo                     = IS_KEYINFO
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                =
*   IR_SALV_HIERSEQ_ADAPTER        =
*   IT_EXCEPT_QINFO                =
*   I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER        =
*   ES_EXIT_CAUSED_BY_USER         =
  tables
    t_outtab_header                = IT_EKKO
    t_outtab_item                  = IT_EKPO
* EXCEPTIONS
*   PROGRAM_ERROR                  = 1
*   OTHERS                         = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.